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ZTITLE ‘VAX-11 CONVERT’ 


Version: *v04-000' 


IXVVVVVVVERVVVVVVVVV 


COPYRIGHT cc 1978 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RES ER RVEDS 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN mw WITH THE TERMS OF SUCH pints SE_ AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF oy ante BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
dh ln 2» lM aa TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eePORAt ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i eeeeeereecerereeeerenereeererereeeereeneneeeeereneeeeeereerereeeeeeeeeeene 
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se 

Facility: VAX=11 CONVERT 

Abstract: Bliss require file for CONVERT and CONVERT/RECLAIM 
i 

i Environment: 

‘ VAX/VMS Operating System 


Remove all — stuff. (Going. in new cp 


Author: Keith 8 Thompson Creation date: July-1980 

i 

Modified by: 

i v03-005 JswT0185 Jim T gaque 22-Jul-1984 
: Add some Literals used during FIN --> STM conversion. 
i v03-004 KBT0471 Keith 8. Thompson 21-Jan-1983 
: Add RSZ error code 

i v03-003 KBT0439 Keith 8. Thompson 16-Dec-1982 
: Add structure macros 

i v03-002 KB10377 Keith B. Thompson 22-0ct-1982 
: Add conv$_seq to error codes 

! v03-001 KBTO344 Keith B. Thompso 4-0ct-1982 
i 

i 


MACRO 
DESC_BLK = 
BLOCK C 8,BYTE J%, 


DESCRIPTOR ( STRING ) = 
UPLIT ( ZCHARCOUNT(STRING), UPLIT BYTE(STRING) )%, 


ERRCHK ( SERVICE,ERROR ) = 
BEGIN 
LOCAL STATU 
iF NOT ( VRéatus = SERVICE ) ) 
NBEGIN 
SIGNAL( ERROR 
ZIF XZLENGTH GTR : 
RETURN .STATUS 
ENDS, — 
RET_ON_ERROR ( SERVICE ) = 
BEGIN 
LOCAL st STATUS 


A ety o SREMAINING 


( ( STATUS = SERVICE ) ) 
RETURN .STATUS 
ENDZ, 
SET = 1%, 
CLEAR = O2; 
STRUCTURE 
‘ perycture definitions for reading a file of RFA's produced 
: by SORT-32 


RFAO_VECTOR £ | :NJ= 

( RFAO_VECTOR + I * 6 )< 0,32,0 >, 
RFAG_VECTOR [ | iNJ= 
( RFAG_VECTOR + 4 + I * 6 )< 0,16,0 >; 


N 
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Symbol definitions macros 


Define the error codes (They are actually defined in CONVMSG 
but this is the next best thing) . 


DEF INE_ERROR_CODES = 
EXTERNAL LITERAL 
CONVERT FACILITY, 
CONVS_FAG_MAX, 
CONV$_BADBLK 
CONV$-BADLOGIC, 
CONV$"BADSORT, 


CONVS CONF QUAL 
CONVS“CREATEDSTA, 


CONV$~ SEQ. 
CONVS-UDF _BKS, 
CONVS UDF “BLK. 
CONVS~VF C7 


<P> 


<> 
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: Global Literals 
LITERAL 
Buffer Sizes 


BLOCK SIZE 
ESA BOF SIZ 


SOR $12 
VFC ‘eur $12 


: Maximum Index Level 
MAX_IDX_LVL = 32, ! NOTE: MAX_IDX_LVL < 33 
H Routine Exit Codes 


convs -SUCCESS = 1, 
CONVS_FAILURE = 0, 


} Reclaim miscellaneous constants 
RECLS. SUCCESS = 1, 

RECLS$_FAILURE = 8. 
RECLS_FOREVER = 0, 


: Exception Codes 


Aa 
§ 
own 


: 


—2* 

mumm 
ONOULSWI—O 
ees eeeeeses 


y 
x 
Zz 
Q 
in FIN --> STM conversion 


F SIZ = 32766, 
ONVEEFINSIN = ¢: 
ONVSC“PRNFIN = 3: 


POON: <2 —- -THMMMmMmMmMmmm.-— 


MACRO 


eh 
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<> 
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LONG_S onee lh. 

LONece = O783°087 

H Macros needed to talk to sort 
SORTKEYSW_TYPE = 0, “| 0%, 
SORTK Y =pnDER * ⸗— ⸗ — *— 
SORTKEYSW_ST T= -0.16,0%, 
SORTKEYSW_LENGH = 5,0,16,0%, 

H Reclaim junk 


KEYRSB_LENGIH = 0,0,8,0 % 


<> 
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